home *** CD-ROM | disk | FTP | other *** search
/ Shareware Super Platinum 8 / Shareware Super Platinum 8.iso / mac / DATABASE / OBJ1_2.ZIP;1 / C_LOC.TXT < prev    next >
Encoding:
Text File  |  1992-11-02  |  1.2 KB  |  49 lines
  1. '
  2. 'Class description:
  3. '
  4. !short:Loc class structure:
  5. Class Loc:
  6. ~~~~~~~~~~~
  7. Cursor screen position is here defined.
  8.  
  9. Common Use:
  10. ~~~~~~~~~~~
  11. LOCAL OBJECT Loc OF Loc
  12. Loc:Get()
  13. ...
  14. Loc:Set()
  15.  
  16. Source code is in C_Loc.prg
  17.  
  18. !seealso: c_cursor.ngo:Cursor c_box.ngo:Box c_frame.ngo:Frame c_color.ngo:Color ob_class.ngo:"Class Hierarchy"
  19.  
  20. !short:~~~~~~~~~~~~~~~~~~~~~
  21. !short:create class Loc
  22. !short:  export:
  23. !short:  var Row     //3
  24. ^BLoc:Row^N: public: numeric
  25.   Screen cursor position.
  26.  
  27. !short:  var Col     //4
  28. ^BLoc:Col^N: public: numeric
  29.   Screen row position.
  30.  
  31. !short:  method New=LocNew   //o:New() --> self
  32. ^BLoc:New()^N: public: return self
  33.   Object is filled with default values.
  34.  
  35. !short:  method Init=LocInit //o:Init(Row,Col) --> true
  36. ^BLoc:Init(Row,Col)^N: public: return true
  37.   Row and Col screen positions are saved to instvar variables of the object.
  38.  
  39. !short:  method Get=LocGet   //o:Get() --> true
  40. ^BLoc:Get()^N: public: return true
  41.   Cursor coordinates are read into instvar variables of the object.
  42.  
  43. !short:  method Set=LocSet   //o:Set() --> true
  44. ^BLoc:Set()^N: public: return true
  45.   Cursor is set to Loc:Row,Loc:Col positions.
  46.  
  47. !short:  endclass
  48.  
  49.